﻿<!--#include file="lib/base.asp"-->
<%
	response.buffer=true
	response.expiresabsolute=now()-1
	response.expires=0
	response.cachecontrol="no-cache"

	dim okmsg:okmsg="<img src=""images/ok.gif"">"
	dim errmsg:errmsg="<img src=""images/err.gif"">"
	dim act:act=trim(request.querystring("act"))
	select case act
		case "a":lever_a "../data"
		case "b":lever_a "../upfile"
		case "c":lever_a "../theme"
		case "k":lever_a "../"
		case "d":lever_b "Microsoft.XMLHTTP"
		case "e":lever_b "Scripting.FileSystemObject"
		case "f":lever_b "Adodb.Stream"
		case "g":lever_b "Scripting.Dictionary"
		case "h":lever_b "Persits.Jpeg"
		case "i":lever_b "Jmail.Message"
		case "j":lever_b "Cdo.Message"
	end select
	
	sub lever_a(byval t0)
		if check_competence(t0) then
			echo okmsg
		else
			echo errmsg
		end if
	end sub

	sub lever_b(byval t0)
		if isinstall(t0) then
			echo okmsg
		else
			echo errmsg
		end if
	end sub
%>